home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / psconver.sda / PS B TO A V1.0 (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  603b  |  20 lines
  1. 100 REM PRINT SHOP B TO A CONVERTER V1.0
  2. 110 REM BY BRIAN HEYBOER  5/21/87
  3. 120 INPUT"SIDE B FILE TO BE CONVERTED";F1$
  4. 130 INPUT"SIDE A CONVERTED FILE";F2$
  5. 140 OPEN8,8,8,F1$+",P,R":OPEN9,8,9,F2$+",P,W":GET#8,A$,A$
  6. 150 N2$=CHR$(0)+CHR$(0):B$=N2$+N2$+N2$+N2$+N2$+CHR$(0)
  7. 160 PRINT#9,CHR$(0);CHR$(80);:FORI=1TO4:PRINT#9,B$;:NEXT
  8. 170 FOR I=1TO45:O$="":FOR J=1TO6
  9. 180 GET#8,A$:IFA$<>""THEN 210
  10. 190 IF J=6 THEN C$=CHR$(0):GOTO 250
  11. 200 C$=N2$:GOTO 250
  12. 210 A1%=ASC(A$):A2%=A1%/16
  13. 220 C%=(A2%AND1)*3+(A2%AND2)*6+(A2%AND4)*12+(A2%AND8)*24:C$=CHR$(C%)
  14. 230 O$=O$+C$:IF J=6 THEN 260
  15. 240 C%=(A1%AND1)*3+(A1%AND2)*6+(A1%AND4)*12+(A1%AND8)*24:C$=CHR$(C%)
  16. 250 O$=O$+C$
  17. 260 NEXT:PRINT#9,O$;:PRINT"*";:NEXT
  18. 270 FOR I=1 TO 3:PRINT#9,B$;
  19. 280 CLOSE8:CLOSE9
  20.